directory<-Sys.getenv("US_Ineq_Repl")
Scripts<-file.path(directory,"Scripts")
setwd(Scripts)
source("1_downloadNBER_ORG.R")
setwd(Scripts)
source("2_downloadCPS_Basic.R")